home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir40 / pc37042.zip / CBL / CALLCIO.CBL < prev    next >
Text File  |  1987-11-20  |  982b  |  24 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID. CALL370.
  3.       ****************************************************************
  4.       *   CALLCIO  is a test program for the subprogram "TESTCIO".   *
  5.       ****************************************************************
  6.        ENVIRONMENT DIVISION.
  7.        CONFIGURATION SECTION.
  8.        DATA DIVISION.
  9.        WORKING-STORAGE SECTION.
  10.        01  FILE-NAME1 PIC X(64) VALUE 'CALLCIO.CBL '.
  11.        01  FILE-NAME2 PIC X(64) VALUE 'TESTCIO.ALC '.
  12.        PROCEDURE DIVISION.
  13.        SET-UP.
  14.                DISPLAY "CALLCIO.CBL STARTING TEST OF TESTCIO.BIN".
  15.        CALL-CIO.
  16.                CALL "TESTCIO" USING FILE-NAME1.
  17.                DISPLAY "BACK FROM TESTCIO.BIN RC=" RETURN-CODE.
  18.                CALL "TESTCIO" USING FILE-NAME2.
  19.                DISPLAY "BACK FROM TESTCIO.BIN RC=" RETURN-CODE.
  20.        END-JOB.
  21.                DISPLAY "THAT'S ALL FOR NOW".
  22.                EXIT PROGRAM.
  23.                STOP RUN.
  24.